1 FORA=679TO701:READB:POKEA,B:NEXT
2 DATA169,178,141,038,003,169,002,141
3 DATA039,003,096,201,013,208,005,032
4 DATA202,241,169,013,076,202,241
5 SYS679:NEW